home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / datamake.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-01-31  |  896 b   |  22 lines
  1. 100  ' DATAMAKE.BAS -- BY PC MAG OCT 29, 85
  2. 110  SCREEN 0:COLOR 7,1,1:KEY OFF:LOCATE ,,0:DEFINT A-Z:CLS
  3. 120  DEF FNST$(Z)=MID$(STR$(Z),2+(Z<0))
  4. 130  INPUT "Enter line number of the first DATA statement: ", L
  5. 140  INPUT "How many entries on each DATA statement line: ",E
  6. 150  INPUT "How many total DATA statement lines are there: ",T
  7. 160  OPEN "DATA.BAS" FOR APPEND AS #1
  8. 170  CLS:LOCATE 4,1:PRINT "Enter DATA value, then hit Enter: "
  9. 180  FOR A=1 TO T: IF A MOD 17 <> 0 THEN G=G+1:GOTO 200
  10. 190  FOR J=6 TO 22:LOCATE J,1:PRINT STRING$(80,32);:NEXT:G=1
  11. 200  D$=FNST$(L+10*(A-1)):PRINT #1,D$;CHR$(32);"DATA";CHR$(32);
  12. 210  LOCATE G+5,1:PRINT D$;CHR$(32);"DATA";CHR$(32);
  13. 220  FOR B=1 TO E:LOCATE 1,1:PRINT "DATA LINE: ";D$
  14. 230  LOCATE 2,1:PRINT "POSITION ON DATA LINE: ";B
  15. 240  LOCATE 4,35:INPUT "",A$:IF A$="" THEN BEEP:GOTO 240
  16. 250  Z=LEN(A$):LOCATE G+5,Y+LEN(D$)+7:PRINT A$;:Y=Y+Z+1
  17. 260  PRINT #1,A$;
  18. 270  IF B<E THEN PRINT #1,","; ELSE PRINT #1,CHR$(13)
  19. 280  IF B<E THEN PRINT ","; ELSE PRINT CHR$(13)
  20. 290  LOCATE 4,35:PRINT STRING$(20,32):NEXT:Y=0:NEXT:CLOSE
  21. 300  LOCATE 25,30:PRINT "DATA.BAS created.";:LOCATE 1,1
  22.